;Modify linetype width of a selection set polyline entities.
;       The only input
;       required is the selection of the polylines to modify.  There
;       is no need to worry about not selecting non-polyline entities
;       because they will be automatically filtered out of the
;       selection set.
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;	Copyright:	5-17-94
;	Edited:		3-13-96
;
(DEFUN C:LTWID ( / plin edpl pset)
(setq ltgw (ureal 1 "" "Enter new width" (if ltgw ltgw 0)))
  (setq as40 ltgw)
  (setq as41 ltgw)
(prompt "\nSelect Polyline(s): ")
  (setq pset (ssget '((0 . "POLYLINE"))))
  (if pset
    (progn
      (setq psln (sslength pset))
      (setq cntr 0)
    )
  )
(while
  (if (and (< cntr psln) pset)
    (setq pent (entget (ssname pset cntr)))
  );if
  (progn
    (setq edpl (entget (cdar pent)))
    (if (eq (cdr (assoc 0 edpl)) "POLYLINE")
      (progn
        (setq edpl
          (subst (cons 40 as40)
                 (assoc 40 edpl)
                 edpl
          )
        )
        (setq edpl
          (subst (cons 41 as41)
                 (assoc 41 edpl)
                 edpl
          )
        )
        (entmod edpl)
      )
    )
    (setq cntr (1+ cntr))
  )
)
);DEFUN
